home *** CD-ROM | disk | FTP | other *** search
/ Remax Data / Remax Porfolio Data 15 Jul 1994 CD-ROM.ISO / fp26_rmx / test2.prg < prev    next >
Encoding:
Text File  |  1994-06-19  |  228 b   |  13 lines
  1. FUNCTION PassVar
  2. PARAMETERS M.Criteria, M.Index
  3.  
  4. *IF mktable = .F.
  5.     ERASE Currant.dbf
  6.     CREATE TABLE Currant ;
  7.         (Criteria C(30), Index C(30))
  8.     USE Currant
  9.     APPEND BLANK
  10.     GOTO TOP
  11.     GATHER MEMVAR
  12. *    mktable = .T.
  13. *ENDIF